VBA |
您所在的位置：网站首页 › vba 带参数的函数 › VBA |
VBA
|
在VBA中自定义函数 使用如下 function 函数名 （输入的参数） Function zmj(str As String) zmj = str / 6.4 + str * 2 + 8 End FunctionVBA中有个很好用的函数split 分割 可以通过自定义函数将其写成公式 应用到 excel中 Function eSplit(str As String, str1 As String, i As Integer) eSplit = Split(str, str1)(i - 1) 字符 按什么分割 取第几个数组中的数 End Function带参数的过程 作用是能节省代码 如下面 两个表sheet1 sheet2都需要创建表 ，但是创建表的规则是一样的，那么可以把相同的代码，创建成带参数的过程 
Sub cjb(str1 As String)
Dim sht As Worksheet
For Each sht In Sheets
If sht.Name = str1 Then
k = 1
End If
Next
If k = 0 Then
Sheets.Add after:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Name = str1
End If
End Sub
---------------------------
Sub abc1()
Call cjb(Sheet1.Range("a2"))
Sheet1.Select
End Sub
---------------------------
Sub abc2()
Call cjb(Sheet2.Range("a2"))
Sheet2.Select
End Sub
加载宏 我们编写的比较通用性的代码可以放在excel的代码库里，这样以后就可以像正常函数一样使用 第一步：将代码添加到excel的代码库中 1）然后点击文件 >>>另存为 >>>>浏览 然后 出现对话框 点击 保存类型>>>再点击excel97-2003加载宏 或者 excel 加载宏 都行，然后，可以修改文件名（建议是：自编代码库）然后 点击保存。
第二步：加载宏 1）点击任意excel文件>>点击文件>>点击选项 2）然后出现窗口，点击“加载项”，再点击“转到” 3）之后出现下面窗口 勾线 你上面保存的文件名 然后再确定
第三步：制作按钮 操作如下
|
【本文地址】
今日新闻 |
推荐新闻 |